home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / SXP683.ARC / L-B (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  9.0 KB  |  266 lines
  1. 0 POKE53280,.:POKE53281,.:PRINT"[147][151]    ";:SYS49230:GOTO100
  2. 1 GOSUB2:GOTO4
  3. 2 GOTO1610
  4. 3 GOTO900
  5. 4 GOTO1740
  6. 5 GOSUB2:GOTO3
  7. 6 I$=" "+I$:SYS49182,I$:I$=MID$(I$,2):RETURN
  8. 7 A$=A$+" > ":GOTO1
  9. 8 A$=" "+R$+"":GOTO2
  10. 9 A$=R$+A$:GOTO2
  11. 10 K9$=MID$("[202]AN[198]EB[205]AR[193]PR[205]AY[202]UN[202]UL[193]UG[211]EP[207]CT[206]OV[196]EC",(VAL(MID$(K$,3,2))-1)*3+1,3)
  12. 11 K$=LEFT$(K$,2)+"-"+K9$+"-"+RIGHT$(K$,2):RETURN
  13. 12 S=54272:POKES+4,64:POKES+3,9:POKES+1,8:POKES+5,12:POKES+6,15:POKES+4,65:RETURN
  14. 13 CLOSE4:CLOSE3:CLOSE2:CLOSE1:RETURN
  15. 14 SYS49179,A$:RETURN
  16. 15 GOTO1650
  17. 19 CLOSE2:OPEN2,8,2,"0:USER LOG,S,A":RETURN
  18. 20 A$="<[205]ORE?>":GOSUB2:GOSUB25:A$="":FORX=1TO7:A$=A$+CHR$(20):NEXT:A$=A$+""
  19. 21 FC=.:GOTO2
  20. 25 GOSUB40:I$="N":POKE703,.:SYS49221,I$:D=-1:IFPEEK(703)>.THENI$="":Z=1:RETURN
  21. 26 GOSUB6:IFFC=FWANDFWTHENRETURN
  22. 27 IFI$=R$ORI$="[217]"THENA$="[217]ES":D=1:GOTO2
  23. 28 IFI$="[206]"THENA$="[206]O":D=.:GOTO2
  24. 29 GOTO25
  25. 30 A$="":SYS49194:S=ST:IFPEEK(685)THENA$=LEFT$(X$,PEEK(685)):SYS49200,A$
  26. 31 SYS49239:RETURN
  27. 33 A$="":GOSUB37:A$=X$+"":SYS49227,A$:GOSUB37:A$=LEFT$(A$,PEEK(2025)-1):RETURN
  28. 34 A$="[211]TAND BY":GOTO9
  29. 37 PRINT#1,M$CHR$(G)CHR$(H)Y$:INPUT#1,M1,M1$,M1,M1:RETURN
  30. 40 T2=TI+WT:IFT2>T-1THENT2=T2-T
  31. 41 T2=T2-INT(T2/60^3)*60^3:M5=INT(T2/60^2):M5$=MID$(STR$(M5),2)
  32. 42 M5=.:IFLEN(M5$)>1THENM5=16*VAL(LEFT$(M5$,1))
  33. 43 MM=VAL(RIGHT$(M5$,1)):M5=M5+MM:POKE702,M5:RETURN
  34. 50 H=INT(X/C):G=INT(X-C*H):RETURN
  35. 78 A$=MID$(STR$(A),2):IFLEN(A$)=1THENA$="0"+A$
  36. 79 RETURN
  37. 80 SYS49224:B$="":FORX=1094TO1101:B$=B$+CHR$(PEEK(X)):NEXT:SYS49230:RETURN
  38. 90 A$="[202][205]+[212][194]":GOTO9
  39. 96 FC=.:IFPTHENRETURN
  40. 97 A$="   [[211]]TOP   [[195]]ONTINUE   [[193]]BORT":GOTO9
  41. 100 IFPEEK(1064)=32THEN100
  42. 101 OPEN5,2,.,CHR$(6):C=256:MP=PEEK(742)+PEEK(743)*C:CP=PEEK(719):B=255
  43. 106 I$="":FORX=1070TO1073:A$=CHR$(PEEK(X)):I$=I$+A$:NEXT
  44. 107 IFLEFT$(I$,1)=" "THENI$=MID$(I$,2)
  45. 108 GOSUB5900
  46. 120 R$=CHR$(13):J$="[211][217][211][207][208]":V$=R$+"[201]NVALID ":W$="[193]BORTED":C$=CHR$(160):POKE1023,B
  47. 160 Y$=CHR$(.):M$="P"+CHR$(99):WT=10800:FR$="0:[211]YSTEM [213]SERS":Q$=CHR$(34)
  48. 170 CLOSE9:OPEN9,8,2,"0:CUSTOM":INPUT#9,PS$:INPUT#9,A$
  49. 180 LF=VAL(A$):INPUT#9,DR$:DR=VAL(DR$):IFDR=-1THEN195
  50. 185 DIMDR$(4,DR)
  51. 190 FORX=.TODR:FORY=1TO3:INPUT#9,DR$(Y,X):NEXTY,X:FORX=.TODR:DR$(2,X)=DR$(2,X)+":":NEXT
  52. 195 INPUT#9,MG$:MG=VAL(MG$):DIMMG$(3,MG):FORX=.TOMG:FORY=.TO3:INPUT#9,MG$(Y,X):NEXTY,X
  53. 197 FORX=.TOMG:MG$(1,X)=MG$(1,X)+":":NEXT
  54. 200 INPUT#9,NC$:NC=VAL(NC$):FORX=.TONC:INPUT#9,C$(X):NEXT:MD=VAL(MG$(2,.))
  55. 205 P$=MG$(1,.):INPUT#9,A$:BD=VAL(A$):INPUT#9,BD$,UM$,PG$,A$,LD$
  56. 206 UM=VAL(UM$):LD=VAL(A$):PG=VAL(PG$):INPUT#9,SU$,NB$,A$,CG$:EZ=VAL(A$)
  57. 207 INPUT#9,PD$,P1$,P2$:P1=VAL(P1$):P1$="":DIMTB$(VAL(NB$)+7),P1$(P1)
  58. 208 FORX=.TOP1:INPUT#9,P1$(X):NEXT:X=8
  59. 209 INPUT#9,TB$(X):X=X+1:IFST=.THEN209
  60. 220 CLOSE9:OPEN9,8,9,"0:STATS
  61. 225 [129]X[178].[164]MG:[132]9,SY$(X),R4$(X),AL$(X),RF$(X):[130]:[132]9,US$,OL$
  62. 240 [132]9,YV$,FB$,BF$:MB[178][197](MG$(3,.)):YV[178][197](YV$):[139]DR[178][171]1[167]260
  63. 250 [129]X[178].[164]DR:[132]9,DR$(4,X):[130]
  64. 260 [160]9:SY[178][197](SY$(.)):N[178][197](AL$(.)):R[178][197](RF$(.)):R4[178][197](R4$(.)):U[178]8
  65. 265 [139]TB$(LD)[178]"0"[167][151]53265,[194](53265)[176]16:[160]1:[159]1,LD,15,"UI+":[160]1
  66. 266 [141]8
  67. 270 P$[178]P$[170]":":BD$[178]BD$[170]":":LD$[178]LD$[170]":":NB[178][197](NB$):NB$[178]"":DD$[178]"0:
  68. 280 POKE650,128:T=5184E3:A$="                                        "
  69. 290 FORX=1TO6:X$=X$+A$:NEXT:X$=X$+"               ":FORX=1TO16:SS$=SS$+C$:NEXT
  70. 300 US=VAL(US$):OL=VAL(OL$):WD=PEEK(687)
  71. 320 E$="":FORX=.TO1:A=(PEEK(710+X)):GOSUB78:E$=E$+A$:NEXT
  72. 350 DY$=MID$(STR$(PEEK(999)),2):IFLEN(DY$)=1THENDY$="0"+DY$
  73. 360 Z$=MID$(STR$(PEEK(1000)),2):IFLEN(Z$)=1THENZ$="0"+Z$
  74. 370 Y2=PEEK(1001):Y3=PEEK(1002):YR=Y3*C+Y2:YR$=MID$(STR$(YR),2)
  75. 380 D$=DY$+Z$+RIGHT$(YR$,2)
  76. 390 F1=1:GOSUB2160:F1=.
  77. 393 SYS49224:B$="":FORX=1094TO1101:B$=B$+CHR$(PEEK(X)):NEXT:SYS49230
  78. 395 E=VAL(LEFT$(B$,2))*60^3+VAL(MID$(B$,4,2))*60^2
  79. 400 E=E+(VAL(RIGHT$(B$,2))+1)*60:E=TI-E
  80. 405 N$="":FORX=971TO995:A$=CHR$(PEEK(X)):IFA$=CHR$(.)THEN407
  81. 406 N$=N$+A$:NEXTX
  82. 407 FORX=1TO25:IFRIGHT$(N$,X)=RIGHT$(X$,X)THENNEXT
  83. 408 N$=LEFT$(N$,26-X)
  84. 409 IFN$<>J$THENGOSUB6100:GOTO900
  85. 410 I$=PS$:GOSUB6:CW$=I$:FW=20
  86. 411 CS=B:SC=1:CN=1:P=1:WD=38
  87. 900 A$=N$:GOSUB14:WT=10800:GOSUB2160:IFZTHEN2480
  88. 901 POKE1023,1:J=.:A$="[194]ULLETIN [211]ECTION V940308":GOSUB9
  89. 924 F$="BULLETINS":JU$="":BN$="[205]AIN
  90. 925 [141]96:[141]15
  91. 930 [141]2160:[139]Z[167]2480
  92. 940 A$[178]R$[170]"(null)VAL(null)(null)(null)(null) ATNBORTS, (null)YPE (null)RIGHT$(null)(null) FOR (null)ENU"[170]R$[170]BN$:[139]P[167]A$[178]R$[170]BN$
  93. 945 O[178]14:[141]7:[139]Z[167]3
  94. 947 [141]6:[139]I$[178]" "[176]I$[178]"PEEKPEEK(null)"[167]1000
  95. 950 A[178].:[139]I$[178]"(null)RIGHT$(null)(null)"[176]I$[178]"(null)VAL(null)(null)"[167]A[178]1
  96. 952 [139]I$[178]"(null)"[176]I$[178]"CHR$"[167]1350
  97. 953 [139]J9[178]1[167]1940
  98. 955 [139](A[175]BN$[178]"(null)AIN")[176]I$[178]"(null)ATNRIGHT$(null)"[176]I$[178]"PEEK(null)(null)(null)"[167]924
  99. 957 [139]A[167]F$[178]"B-!"[170]BN$:[137]925
  100. 958 [129]X[178].[164]P1:[139]I$[178]P1$(X)[167]X[178]P1:[130]:[137]8001
  101. 959 [130]
  102. 960 [139]I$[178]"?"[176]I$[178]"LEFT$"[167]F$[178]"HELPB":[141]15:[137]985
  103. 965 [139][200](I$,1)[178]"PEEK"[175][195](I$)[178]2[167]JU$[178]"RIGHT$(null)
  104. 970 IFI$="[201][206][212][210][207]"THENF$="INTRO":JU$="[201][207]":GOSUB15:JU$="":GOTO985
  105. 975 IFI$="[215][197][204][195][207][205][197]"THENF$="WELCOME":GOSUB15:GOTO985
  106. 977 IFLEFT$(I$,1)="*"THENJU$=MID$(I$,2):I$="!"+JU$
  107. 980 F$="B-"+I$:GOSUB15
  108. 985 K=TI:IFAANDJU$>""THENA$="[211]UB-MENU NOT FOUND":GOSUB9:JU$="":A=.
  109. 986 IFATHENA$="[194]ULLETIN NOT FOUND":GOSUB9
  110. 988 IFJU$>""ANDMID$(F$,3,1)="!"THENBN$=JU$
  111. 990 JU$="":GOTO930
  112. 1000 A$="[210]ETURN TO [194][194][211]? ":GOSUB9:GOSUB25:IFD=.THEN3
  113. 1001 SYS65484:POKE1023,B:GOTO3675
  114. 1350 A$="[204]OGOFF, YOU SURE? ":GOSUB9:GOSUB25:IFD=.ANDZ=.THEN3
  115. 1385 POKE1023,254:GOSUB80
  116. 1390 A$="[204]OGOFF AT "+LEFT$(TI$,2)+":"+MID$(TI$,4,2)+":"+RIGHT$(TI$,2):GOSUB9
  117. 1395 A$="[195]ONNECT TIME = "+B$+R$+R$+"[208]LEASE CALL AGAIN."+R$+"":GOSUB2:GOTO3676
  118. 1560 POKE707,.:A=ASC(A$):IFA=136THEN1910
  119. 1590 IFA=137ORPEEK(702)=BTHENRETURN
  120. 1592 IFA=135THENGOSUB6000:A$=Y$:IFDETHENZ=1:RETURN
  121. 1593 IFA=139THENE=TI:K=E:I$="[255]":FORX=56587TO56584STEP-1:POKEX,.:NEXT:X=PEEK(56584):RETURN
  122. 1600 A$=AS$:GOTO1820
  123. 1610 GET#5,K9$:C9=.:H$="":IFA$=""THENA$=" "+R$+"
  124. 1615 [158]49203,A$:[158]49239
  125. 1620 [139][201](A$,1)[179][177]""[175]SK[178].[167]2840
  126. 1630 [142]
  127. 1640 U[178]8:DD$[178]"0:":[137]1670
  128. 1650 U[178]BD:DD$[178]BD$
  129. 1670 [141]13:[159]1,U,15:[159]2,U,2,DD$[170]F$
  130. 1680 [151]685,.:[151]693,.:[141]8:[132]1,A,A$,M1,M1:[139]A[167][142]
  131. 1690 [139]JU$[178]"RIGHT$(null)"[167][132]2,A$
  132. 1700 [141]30:[139]FW[167]FC[178]FC[170]1:[139]FC[178]FW[167]AS$[178]A$:[141]20:A$[178]AS$:[139]I$[178]"(null)"[167]S[178]64:[137]1720
  133. 1715 [141]2
  134. 1720 [139]C9[176]S[178]64[167][160]15:[160]2:A[178].:FC[178].:[142]
  135. 1730 [137]1700
  136. 1740 [151]694,.:F1[178]1:[141]2160:F1[178].:[139]J9[178]1[175]J[178].[167]I$[178]C$:A$[178]C$:[137]2
  137. 1800 [141]40:[139]PA[167][141]12
  138. 1810 [151]703,.:[139]O[178].[167]O[178]38
  139. 1820 A$[178][200](X$,O):[158]49215,A$:[139]J[178]1[175][194](707)[178]136[167][151]707,.:[137]1820
  140. 1830 [139][194](707)[177].[167]AS$[178]A$:A$[178][199]([194](707)):[137]1560
  141. 1840 [139][194](703)[177].[167]Z[178]1:I$[178]C$:[142]
  142. 1850 I$[178]A$:I$[178][200](I$,[194](694)):[139][194](694)[178].[167]I$[178]C$
  143. 1870 O[178].:[142]
  144. 1910 [139]J9[178]1[167]K[178]TI:J9[178].:[142]
  145. 1920 J9[178]1:I$[178]C$:A$[178]C$:[137]2
  146. 1930 K[178]TI:J9[178]2:[137]3
  147. 1940 [151]54296,.:PA[178].:A$[178]"LENHAT (null)ODE"[170]R$[170]R$[170]"":[141]9:[151]690,[194](729):[137]2550
  148. 2160 TC[178]56328:X9[178][194](TC[170]3):A%[178](X9[175]16)[173]16[170]48:B%[178](X9[175]15)[170]48
  149. 2170 [139]X9[178][177]128[175][197]([199](A%)[170][199](B%))[179]12[167]A%[178]A%[170]1:B%[178]B%[170]2
  150. 2180 [139]B%[177]57[167]A%[178]A%[170]1:B%[178]B%[171]10
  151. 2190 [139]X9[179]128[175]A%[178]49[175]B%[178]50[167]A%[178]48:B%[178]48
  152. 2200 X9[178][194](TC[170]2):C%[178](X9[175]240)[173]16[170]48:D%[178](X9[175]15)[170]48
  153. 2210 X9[178][194](TC[170]1):E%[178](X9[175]240)[173]16[170]48:F%[178](X9[175]15)[170]48
  154. 2220 X9[178][194](TC):TI$[178][199](A%)[170][199](B%)[170][199](C%)[170][199](D%)[170][199](E%)[170][199](F%)
  155. 2225 [139]TI[171]3[177]4E6[167]E[178]E[170]T
  156. 2230 [139]F1[178]1[167][142]
  157. 2240 [139]TI[179]E[167]E[178]E[171]T
  158. 2250 L2[178]TI[171]E:[139]L2[177]T[167]E[178]E[170]T
  159. 2252 [139]([194](MP)[175]16)[179][177]CP[175][194](706)[178].[167]Z[178]1:[142]
  160. 2253 L7[178][181](L2[173]60[174]3):L8[178][181]((L2[171]L7[172]60[174]3)[173]60[174]2):L9[178][181]((L2[171]L7[172]60[174]3[171]L8[172]60[174]2)[173]60)
  161. 2254 L4[178]L7[172]60[170]L8:[139]L4[177][178]EZ[175]SC[178].[167]Z[178]1:[142]
  162. 2255 [139]L4[177][178]EZ[171]10[175]SC[178].[167][141]2750:A$[178]"LENONNECT (null)IME > "[170]T9$:[141]9
  163. 2260 [139][197](TI$)[179]10000[175][194](1018)[179][177]1[167]2290
  164. 2270 [139]TI$[177]"010000"[167][151]1018,.
  165. 2280 [142]
  166. 2290 [151]1018,1:[139]DY$[178]"28"[175]Z$[178]"02"[167]2420
  167. 2300 [139]DY$[178]"29"[175]Z$[178]"02"[167]DY$[178]"01":Z$[178]"03":[137]2440
  168. 2310 [139]DY$[178]"31"[175](Z$[178]"01"[176]Z$[178]"10"[176]Z$[178]"03"[176]Z$[178]"05"[176]Z$[178]"07")[167]2360
  169. 2320 [139]DY$[178]"31"[175](Z$[178]"08"[176]Z$[178]"12")[167]2360
  170. 2330 [139]DY$[178]"30"[175](Z$[178]"09"[176]Z$[178]"11"[176]Z$[178]"04"[176]Z$[178]"06")[167]2360
  171. 2340 DY$[178][202]([196]([197](DY$)[170]1),2):[139][195](DY$)[178]1[167]DY$[178]"0"[170]DY$
  172. 2350 [137]2440
  173. 2360 TJ[178][197](Z$)[170]1:[139]TJ[179]10[167]LT[178]1:[137]2380
  174. 2370 LT[178]2
  175. 2380 DY$[178]"01":Z$[178][201]([196](TJ),LT)
  176. 2390 [139]LT[178]1[167]Z$[178]"0"[170]Z$
  177. 2400 [139]Z$[178]"13"[167]YR$[178][201]([196]([197](YR$)[170]1),4):Z$[178]"01"
  178. 2410 [137]2440
  179. 2420 YR[178][197](YR$):Y2[178]YR[173]4:YR[178][181](YR[173]4):[139]YR[178]Y2[167]DY$[178]"29":[137]2440
  180. 2430 DY$[178]"01":Z$[178]"03"
  181. 2440 [151]999,[197](DY$):[151]1000,[197](Z$):YR[178][197](YR$):Y3[178][181](YR[173]C)
  182. 2450 Y2[178]YR[171](Y3[172]C):[151]1001,Y2:[151]1002,Y3:D$[178]DY$[170]Z$[170][201](YR$,2)
  183. 2460 K$[178]D$:[141]10:[141]19:A$[178]" "[170]R$[170]"STR$ATE: "[170]K$[170]R$[170]" ":[152]2,A$:[160]2:[139]DR[178][171]1[167]13
  184. 2470 [159]2,8,2,"0:LU,S,A":[152]2,A$:[160]2:[159]2,8,2,"0:LD,S,A":[152]2,A$:[137]13
  185. 2480 A$[178]"(null)IME VALXPIRED":[141]9:J9[178].:[151]1023,253:[141]2510:[137]3675
  186. 2510 [129]X[178]8[164]NB[170]7:[160]1:[159]1,X,15:[160]1
  187. 2520 [139]ST[167]2540
  188. 2530 [159]1,X,15,"I0:":[160]1
  189. 2540 [130]:[142]
  190. 2550 [151]694,.:[151]702,B:[158]49215,X$
  191. 2560 [139][194](707)[178].[167]2550
  192. 2570 A$[178][199]([194](707)):[141]1560:[139]J9[178].[176]Z[167][141]8:[137]1930
  193. 2580 [137]2550
  194. 2750 [139]TI[179]E[167]E[178]E[171]T
  195. 2760 L2[178]TI:TH[178][181]((L2[171]E)[173]60[174]3):L2[178]L2[171]60[174]3[172]TH:TM[178][181]((L2[171]E)[173]60[174]2):L2[178]L2[171]60[174]2[172]TM
  196. 2770 TS[178][181]((L2[171]E)[173]60):[139]TH[179]10[167]TH$[178]"0"[170][201]([196](TH),1):[137]2790
  197. 2780 TH$[178][201]([196](TH),2)
  198. 2790 [139]TM[179]10[167]TM$[178]"0"[170][201]([196](TM),1):[137]2810
  199. 2800 TM$[178][201]([196](TM),2)
  200. 2810 [139]TS[179]10[167]TS$[178]"0"[170][201]([196](TS),1):[137]2830
  201. 2820 TS$[178][201]([196](TS),2)
  202. 2830 T9$[178]TH$[170]":"[170]TM$[170]":"[170]TS$:[142]
  203. 2840 SK[178].:K[178]TI:[139]K9$[177]""[167]A$[178]K9$:[137]2870
  204. 2850 [161]A$:[139]A$[177]""[167]2870
  205. 2860 [161]#5,A$:[139]A$[177]""[167]2870
  206. 2865 [139]([194](673)[175]1)[178].[167][142]
  207. 2867 [137]2850
  208. 2870 K[178]TI:Z[178].:A[178][198](A$):[139]A[177]127[167]A$[178][199](A[171]128)
  209. 2875 [139]A$[178][199](131)[167]A$[178]"
  210. 2880 IFA$=""ORA$=""THENH$=A$:C9=1:RETURN
  211. 2890 IFA$=CHR$(83)ORA$=CHR$(115)THENA$="<[195]>":SK=1:GOSUB2:GOTO2960
  212. 2900 GOTO2850
  213. 2960 GETA$:IFA$>""THEN2990
  214. 2970 IFTI-K>WTTHENA$=CHR$(65):Z=1:GOTO2990
  215. 2980 GET#5,A$:IFA$=""THEN2960
  216. 2990 A=ASC(A$):IFA>127THENA$=CHR$(A-128)
  217. 3000 IFA$=CHR$(65)ORA$=CHR$(97)THENGOSUB3055:C9=1:RETURN
  218. 3010 IFA$=CHR$(67)ORA$=CHR$(99)THEN3055
  219. 3020 GOTO2960
  220. 3055 A$=CHR$(20):A$=A$+A$+A$+"":GOSUB2:SK=.:RETURN
  221. 3330 GOSUB13:OPEN1,8,15,"I0:":OPEN3,8,3,FR$:FL=.:X=INT(US/2):N4=US:N3=.
  222. 3335 IFPEEK(730)THENX=PEEK(730)
  223. 3360 H=INT(X/C):G=X-C*H:GOSUB37:A$=X$+"":SYS49227,A$:GOSUB37
  224. 3370 A$=LEFT$(A$,PEEK(2025)-1):N9$=LEFT$(A$,LEN(A$)-58)
  225. 3380 IFN$=N9$THENRETURN
  226. 3390 IFFL=.ANDN4-N3=1THENX=N4:FL=1:GOTO3360
  227. 3400 IFFL=1ANDN4-N3=1THENRETURN
  228. 3410 IFN$>N9$THENN3=X:X=X+INT((N4-X)/2):GOTO3360
  229. 3420 N4=X:X=X-INT((X-N3)/2):GOTO3360
  230. 3675 POKE54296,.:A$="[207]NE MOMENT...":GOSUB9
  231. 3676 LP$="":F$="BBS6*
  232. 3677 [139]TB$(LD)[178]"0"[167][151]53265,[194](53265)[175]239:[160]1:[159]1,LD,15,"UI-":[160]1
  233. 3680 [153]"LOADNEW"R$"LOAD"Q$;LD$;LP$;F$;Q$;",";LD;":"R$"RUN
  234. 3690 POKE198,3:POKE631,13:POKE632,13:POKE633,13:PRINT"":A$=N$:GOSUB14:END
  235. 5900 BR=VAL(I$):POKE659,6:X=1022730/BR:GOSUB50
  236. 5905 IFBR=300ORBR>1199THENSYS49242:GOTO5910
  237. 5906 SYS49245
  238. 5910 POKE176,G:POKE177,H:POKE665,G
  239. 5920 POKE666,H:X=1022730/BR/2-100:GOSUB50:POKE661,G:POKE662,H
  240. 5930 IFLEN(I$)=3THENI$="0"+I$
  241. 5940 FORX=1TO4:POKEX+964,ASC(MID$(I$,X,1)):NEXT:RETURN
  242. 6000 A$="LOGOFF USER? ":B$=A$:GOSUB14
  243. 6010 GETA$:IFA$=""THEN6010
  244. 6020 IFA$="N"THENA$=B$+"NO":GOSUB14:DE=.:RETURN
  245. 6030 IFA$="Y"THENA$=B$+"YES":GOSUB14:DE=1:RETURN
  246. 6040 GOTO6010
  247. 6100 GOSUB3330:GOSUB13:ZL=G:ZH=H:ZR$=A$:BA$=RIGHT$(A$,28):A$=LEFT$(A$,LEN(A$)-28)
  248. 6105 XZ$=RIGHT$(A$,30):FG=ASC(MID$(XZ$,20,1)):XP=(FGAND31):FW=ASC(MID$(XZ$,21,1))
  249. 6106 OC=ASC(MID$(XZ$,22,1)):K3=ASC(MID$(XZ$,23,1)):K4=ASC(MID$(XZ$,24,1))
  250. 6108 AC=ASC(MID$(XZ$,25,1)):T0=ASC(MID$(XZ$,26,1))
  251. 6110 POKE701,((FGAND32)=.)+1:U1$=MID$(XZ$,13,7):RH=ASC(LEFT$(U1$,1))-192
  252. 6120 RL=ASC(MID$(U1$,2,1))-192:RN=RH*64+RL:RV=ASC(MID$(U1$,5,1))-192
  253. 6130 RN=RN+RV*4096+1:CS=ASC(MID$(U1$,6,1)):MN$=MID$(U1$,4,1)
  254. 6140 MN=ASC(MID$(U1$,4,1))-192:FG=ASC(MID$(U1$,3,1)):SC=((FGAND4)=.)+1
  255. 6150 CN=((FGAND2)=.)+1:P=((FGAND1)=.)+1:WD=ASC(MID$(U1$,7,1)):POKE687,WD
  256. 6160 N5=((FGAND8)=.)+1:K$=MID$(XZ$,7,6):IFPEEK(690)=7THENPA=1:POKE54296,15
  257. 6180 U1=((FGAND16)=.)+1:U2=((FGAND32)=.)+1
  258. 6190 U3=((FGAND64)=.)+1:U4=((FGAND128)=.)+1
  259. 6200 I$=LEFT$(XZ$,6):GOSUB6:CW$=I$:XZ$=CW$+D$+U1$
  260. 6210 G2=G:H2=H:RETURN
  261. 8001 F$=I$:LP$="L-
  262. 8003 [141]13:[159]1,LD,15:[159]2,LD,2,LD$[170]LP$[170]F$:[160]2:[132]1,A,M1$,M1,M1:[160]1
  263. 8004 [139]A[178].[167][141]34:[137]3677
  264. 8005 [139]LP$[178]"L-"[175]SC[167]LP$[178]"S-":[137]8003
  265. 8006 [137]980
  266.